Mac100% 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Utility / CNIF_MacroMaker 1.4.sit / CNIF_MacroMaker 1.4 / CNIF_MacroMaker / background_41380.xml < prev next >

Wrap

Extensible Markup Language | 1999-01-11 | 96KB | 1,521 lines

<?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" > <background> <id>41380</id> <filler1>0</filler1> <bitmap>BMAP_42784.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" /> <part> <id>51</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>417</left> <top>30</top> <right>503</right> <bottom>46</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｧﾃ古ｨﾃｺﾃ鵜ﾃ[ﾃ嘉ｨﾃ[ﾃ栄</name> <script>on mouseUpset the visible of bg fld id 50 to the hilite of meset the locktext of bg fld id 3 to not(the hilite of me)if the optionKey is down thenanswer "ﾃｧﾃ古ｨﾃｺﾃ鵜ﾃ[ﾃ嘉ｨﾃ[ﾃ栄ﾃï｣ｿﾃｫSﾃﾆ津｢ï｣ｿﾃｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"if it is "OK" then put empty into bg fld id 50end ifend mouseUp</script> </part> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>8</left> <top>4</top> <right>194</right> <bottom>24</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>mainMenu</name> <script>on mouseDownmainMenuend mouseDown</script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>200</left> <top>4</top> <right>445</right> <bottom>24</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>subMenu</name> <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>8</left> <top>61</top> <right>505</right> <bottom>273</bottom> </rect> <style>scrolling</style> <autoSelect> <true /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>titleList</name> <script>on mouseUpset cursor to watchput (the shiftKey is down) into sh-- lock screenput the selectedText of me into cTextif cText <> empty thenput (the clickText is char 7 to 14 of cText) into clickIDput char 7 to 14 of cText into scanIDif sh or (bg fld id 31 <> "ID:" and clickID) thenput "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ･ﾃｼﾃｧﾄｱﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"put setDate(last line of bg fld "titleList",bg fld id 33) into scanDateput bg fld id 22 into nget ". BBS"send "extList n,scanID,scanDate,it,(sh and clickID)" to bg btn id 36elseif bg fld id 31 is "ID:" thenif clickID thenput scanID into bg fld id 30select line 0 of meexit mouseUpend ifend ifget char 1 to 3 of cTextif it is a number thenglobal CNMBBStListif char 5 of cText <> "*" thenput "*" into char 5 of line (word 2 of the selectedLine of me) of meput bg fld id 5 into listif list contains "-" then put shortNumber(list,false,true) into listput value(it) into item (the number of items of list) + 1 of listsort items of list numericif bg fld id 32 is "DATE:" and the hilite of bg btn "ﾃ･竕暗ｭﾃ" is false thenput setDate(cText,bg fld id 33) into bg fld id 33end ifelseput " " into char 5 of line (word 2 of the selectedLine of me) of meput bg fld id 5 into listif list contains "-" then put shortNumber(list,false,true) into listrepeat with r = 1 to the number of items of listif item r of list = it thendelete item r of listexit repeatend ifend repeatend ifif shortNum() then put shortNumber (list,true,true) into listput list into bg fld id 5put empty into CNMBBStListend ifend ifend ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script> </part> <part> <id>4</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>8</left> <top>47</top> <right>505</right> <bottom>62</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>header</name> <script>on mouseUpif the optionKey is down thenopenEditLogelseglobal CNMBBStListput "ﾃｯsﾃｳvﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｭﾃ"get maskBlackID(bg fld id 3)put it into bg fld id 3put it into CNMBBStListhide msgend ifend mouseUp</script> </part> <part> <id>5</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>10</left> <top>274</top> <right>152</right> <bottom>313</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>readList</name> <script>on mouseUpaskListend mouseUp</script> </part> <part> <id>6</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>39</left> <top>318</top> <right>153</right> <bottom>339</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>NIFTY-Navigator II</name> <script>on mouseUpsend "mouseUp" to bg btn id 26 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script> </part> <part> <id>7</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>285</left> <top>317</top> <right>305</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>8349</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevBgend mouseUp</script> </part> <part> <id>8</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>306</left> <top>317</top> <right>326</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>23718</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevCdend mouseUp</script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>325</left> <top>317</top> <right>345</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>23717</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextCdend mouseUp</script> </part> <part> <id>10</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>346</left> <top>317</top> <right>366</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>8350</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextBgend mouseUp</script> </part> <part> <id>11</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>370</left> <top>317</top> <right>390</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13301</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoPrevMcend mouseUp</script> </part> <part> <id>12</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>389</left> <top>317</top> <right>409</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13302</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoNextMcend mouseUp</script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>454</left> <top>317</top> <right>474</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>6720</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGoTopCdend mouseUp</script> </part> <part> <id>14</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>0</left> <top>330</top> <right>12</right> <bottom>342</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itset the visible of bg fld id 37 to not itset the visible of bg fld id 38 to not itset the visible of bg fld id 53 to not itset the visible of bg fld id 55 to not itend mouseUp</script> </part> <part> <id>17</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>346</left> <top>284</top> <right>402</right> <bottom>304</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name> <script>on mouseUpif the short name of this cd is " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " thenclearDataelseglobal CNMBBStListput bg fld id 3 into trepeat with r = 1 to the number of lines of tset the cursor to busyif char 5 of line r of t is "*" then put " " into char 5 of line r of tend repeatput t into bg fld id 3put empty into bg fld id 5set the hilite of bg btn id 35 to falseput empty into CNMBBStListend ifend mouseUp</script> </part> <part> <id>18</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>412</left> <top>284</top> <right>493</right> <bottom>304</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name> <script>on mouseUp filePathput the hilite of cd btn id 7 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" into cutMode-- readLogFile4 filePath,"ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS","BBS>","BBS",cutModereadLogFile4 filePath,"DO BBS","BBS>","BBS",cutModeend mouseUp</script> </part> <part> <id>19</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>487</left> <top>5</top> <right>505</right> <bottom>23</bottom> </rect> <style>checkbox</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>createMark</name> <script>on mouseUpset marked of this card to hilite of meend mouseUp</script> </part> <part> <id>21</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>406</left> <top>47</top> <right>504</right> <bottom>62</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>listNum</name> <script>on mouseUpanswer "ﾃｯ¥ﾃｩﾂｶﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦" & the number of lines of bg fld id 3end mouseUp</script> </part> <part> <id>15</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>355</left> <top>28</top> <right>505</right> <bottom>99</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>subMenuList</name> <script></script> </part> <part> <id>22</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>8</left> <top>28</top> <right>84</right> <bottom>48</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseDownput bg fld "BBSmenu" & "-;ﾃﾂｪﾃﾃεｫﾂｺ..." into listput the number of lines of list into lget char 1 to 2 of meif it is a integer thenif it > char 1 to 2 of line (l - 1) of list then get l + 1else subtract 1 from itelse if it is empty then get 1elseget item 1 of MtScanList(list,"ﾃ⑿" & me & "ﾃ⒀")if it is empty then get l + 1end ifUxPop list,,it,the topLeft of meput it into sItemput the shiftKey is down into shif sItem is empty then exit mouseDownif sItem is "ﾃﾂｪﾃﾃεｫﾂｺ..." thenask "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｮ窶佚ｧﾃ愿⑿ﾃ窶｡ﾃﾂｵﾃ竕ﾃﾃ膝Oﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ⒀ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"if it is empty or the result is "Cancel" then exit mouseDownput it into sItemif "-" is in it then get char 1 to offset("-",it) - 1 of itif it is not a integer thenif char 1 to 3 of it <> "BBS" then exit mouseDownput upperLower(word 1 of sItem) into BBSNumget getCdName(BBSNum)if it <> empty then put it into sItemelse put BBSNum into sItemelseput roomNum(sItem) into BBSNumput "BBS-" before sItemend ifelseput char 1 to offset(".",sItem) - 1 of sItem into BBSNumif last char of sItem is "ﾃ⒀" thendelete last char of sItemput the number of chars of sItem into wrepeat with r = w down to 1if char r of sItem is "ﾃ⑿" thenif sh then put char r + 1 to w of sItem into BBSNumdelete char r to w of sItemexit repeatend ifend repeatend ifend ifset the cursor to watchlock screenif the short name of this cd is sItem thenput BBSNum into meexit mouseDownend ifput (bg fld id 31 is "ID:") into modeget MtScanList(bg fld "subMenuList",sItem,,true)if it <> empty or mode thenget MtScanList(bg fld "BBSnameList1",the short name of this cd,,true)if it is empty then put BBSNum into meelsebeepif mode then answer "ﾃ｣Kﾃｭﾃ凝雨ﾃ[ﾃ栄ﾃ竕IDﾃｩwﾃｭﾃ凝ﾃεｨﾃ催ｧﾃ｡ﾃﾃ陛ｯﾅ禿ｧXﾃ竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ津③"else answer quote & sItem & quote && "ﾃﾃ陛雨ﾃ[ﾃ栄ﾃ邃｢ﾃ窶ﾃﾃ凝窶ｹﾃ竏妥③"end ifexit mouseDownend ifif "13-" is in sItem thenbeepanswer "ﾃuﾃ｢ﾃ氾ﾄｱﾃｨﾃ禿ｯﾃ津嘘ﾃ[ﾃ永ﾃ[ﾃv(DO MEMBER/2/5)ﾃ竕暗ｪ竏づｮNﾃ･ﾃｩﾃｬﾋ凖ï｣ｿﾃｬoﾃｲ^ﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩﾃﾂｩﾃ⑨ﾃ窶ｹﾃﾎｩﾃ②ﾃ窶ﾃﾂｻﾃﾎｩﾃﾃ陛㈲ﾃ㈿ﾃｧﾅ津ﾂｻﾃｨ窶榲竕暗竏妥ﾂｩﾃ⑨" & return &ﾂｬ"ﾃﾂｪﾃﾂｧﾃ竕暗ﾂｻﾃﾂ｢ﾃｨﾃ催ｧﾃ｡ﾃﾃ陛厭ﾃ丑ﾃ嘉ｧﾃ邃｢ﾃｭ窶堙ｩ~ﾃﾂｵﾃﾆ津ﾂｵﾃ窶ｹﾃﾂ｢ﾃ窶ｹﾃ竏妥③" & return & return & quote & sItem & quote && "ﾃﾃεｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｧsﾃﾂ｢ﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"if it is "Cancel" then exit mouseDownend ifif bg fld id 3 <> empty thenbeepanswer "ﾃﾂｱﾃﾃε雨ﾃ[ﾃ栄ﾃﾃεｪ窶ｺﾃｭﾃ凝邃｢ﾃｨﾂ｡ﾃ｣ﾃｩﾃ竕･ﾃﾃ催窶ｹﾃ竏妥邃｢ﾃｯﾅ禿ｧXﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"if it is "Cancel" then exit mouseDownend ifput BBSNum into mereNameCard sItemput "3,4,5,21,30,33,55" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatput "None" into bg fld id 31put "None" into bg fld id 32set the hilite of bg btn id 23 to falseset the hilite of bg btn id 35 to falseend mouseDown</script> </part> <part> <id>23</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>158</left> <top>275</top> <right>211</right> <bottom>293</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>ﾃ･竕暗ｭﾃ</name> <script></script> </part> <part> <id>24</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>496</left> <top>326</top> <right>512</right> <bottom>342</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>BookMark</name> <script>on mouseUpsetBookmarkend mouseUp</script> </part> <part> <id>25</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>476</left> <top>314</top> <right>512</right> <bottom>328</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>BookMarkNo</name> <script></script> </part> <part> <id>30</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>136</left> <top>30</top> <right>266</right> <bottom>46</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>ScanID</name> <script>on closeFieldcheckKeyWordend closeFieldon exitFieldcheckKeyWordend exitFieldon returninFieldcheckKeyWordend returninField</script> </part> <part> <id>31</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>85</left> <top>28</top> <right>135</right> <bottom>48</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseDownset the cursor to watchput bg fld "KeyList" into KeyListput KeyList into listrepeat until "," is not in list and ";" is not in list and "/" is not in list and "!" is not in list and "<" is not in listif "," is in list then put " " into char offset(",",list) of listif ";" is in list then put " " into char offset(";",list) of listif "/" is in list then put " " into char offset("/",list) of listif "!" is in list then put " " into char offset("!",list) of listif "<" is in list then put " " into char offset("<",list) of listend repeatput switch(list) into listUxPop "None;ID:;KEY:," & list,"N",,the topLeft of meput item 1 of line 2 of it into mainput line (item 4 of line 2 of it) of KeyList into subif main <> empty thenif main is "KEY:" and sub <> empty thendelete char 1 to 6 of subrepeatget last char of subdelete last char of subif it is "(" then exit repeatend repeatput word 1 to (the number of words of sub) of sub into bg fld id 30elseput empty into bg fld id 30end ifput main into meset the visible of bg fld id 30 to not(main is "none")end ifend mouseDown</script> </part> <part> <id>32</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>267</left> <top>28</top> <right>311</right> <bottom>48</bottom> </rect> <style>shadow</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script>on mouseDownUxPop "None;DATE:",,,the topLeft of meif it <> empty thenset the visible of bg fld id 33 to not(it is "None")put it into meend ifend mouseDown</script> </part> <part> <id>33</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <true /> </autoTab> <lockText> <false /> </lockText> <rect> <left>312</left> <top>30</top> <right>358</right> <bottom>46</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>ScanDate</name> <script>on closeFieldcheckNend closeFieldon exitFieldcheckNend exitFieldon returnInFieldcheckNend returnInFieldon checkNget merepeat until "." is not in it and "/" is not in itif "." is in it then delete char offset(".",it) of itif "/" is in it then delete char offset("/",it) of itend repeatput it into d2put "." after char 2 of d2put "." after char 5 of d2convert d2 to secondsif checkDATE(it) is false and it <> empty or d2 > the seconds thenbeepput the date into dconvert d to dateitemsput item 3 of d - 1 into sput 1 into item 3 of dconvert d to long dateanswer quote & nextSEAdate(0) & quote & "ﾃﾂｻﾃｫOﾃﾃεｬﾋ凖ｯt(YYMMDD)ﾃï｣ｿﾃｬﾂｸﾃﾃ催ﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿ﾃｳﾂｷﾃ⒀" & d & "ﾃﾃεｨﾃ催ｧﾃ｡" & return &ﾂｬ"ﾃ①ﾃ①ﾃ①" & quote & nextSEAdate(s) & quoteput nextSEAdate(0) into meselect text of meelseput it into mecheckKeyWordend ifend checkN</script> </part> <part> <id>35</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>158</left> <top>294</top> <right>211</right> <bottom>312</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>ALL</name> <script></script> </part> <part> <id>36</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>276</left> <top>284</top> <right>332</right> <bottom>304</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ･ﾃｼﾃｧﾄｱ</name> <script>on mouseUpput bg fld id 22 into forumNameif the shiftKey is down then put setDate(last line of bg fld id 3,bg fld id 33) into scanDateelse put empty into scanDateextList forumName,,scanDate,". BBS"end mouseUpon extList forumName,scanID,scanDate,ky,shglobal prevScanIDset the cursor to watchif sh is empty then put false into shif scanID <> empty thenput false into op2elseput prevScanID into scanIDget InputDialog("ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ･ﾃｼﾃｧﾄｱ","ﾃ･ﾃｼﾃｧﾄｱIDﾃ⑴ﾃｯ竏づｩﾃｶﾃｳﾃ津⑿ﾃ｣ﾃ崚ｮﾃｭﾃ竕暗ｩwﾃｭﾃ凝ﾂｻﾃﾂｵﾃ⒀,ﾃ･ﾃｼﾃｧﾄｱﾃｬﾋ凖ｯtﾃ⑿'YYMMDD'ﾃｩwﾃｭﾃ凝ｬﾋ凖ﾂｻﾃｧ~ﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ⑴ﾃ｣ﾃ崚ｮﾃｭﾃ竕暗ｩwﾃｭﾃ凝ﾂｻﾃﾂｵﾃ⒀",scanID & "," & scanDate,"OK,ﾃｯ竏づｩﾃｶﾃｳﾃ津竏ﾃﾂｵﾃﾆ,Cancel")set the cursor to watchput line 2 of it into selBtnif selBtn is "Cancel" then exit extListput line 3 of it into scanIDput line 4 of it into scanDateput (the optionKey is down or scanID is empty) into op2if selBtn is "ﾃｯ竏づｩﾃｶﾃｳﾃ津竏ﾃﾂｵﾃﾆ" thenput true into op2put "OK" into selBtnend ifend ifrepeat until "." is not in scanDate and "/" is not in scanDateif "." is in scanDate then delete char offset(".",scanDate) of scanDateif "/" is in scanDate then delete char offset("/",scanDate) of scanDateend repeatif scanDate <> empty and checkDATE(scanDate) is false thenbeepanswer "ﾃｬﾋ凖ｯt(YYMMDD)ﾃ邃｢ﾃｪ竕･ﾃﾂｵﾃ竕ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"exit extListend ifsearchList forumName,scanID,scanDate,ky,op2,shend extListon searchList forumName,scanID,scanDate,ky,op2,shglobal ListSelectExit,CNMBBStList,prevScanIDif CNMBBStList is empty then put bg fld "titleList" into CNMBBStListput CNMBBStList into titleListif titleList is empty thenplay boing c5hide msgexit searchListend ifif scanID <> empty thenput MtPickUpLines(titleList,scanID) into ScanListif op2 is false thenif checkID(scanID) is false thenput true into op2elseput upperLower(scanID) into scanIDput the number of lines of ScanList into nrepeat with r = n down to 1if char 7 to 14 of line r of ScanList <> scanID then delete line r of ScanListend repeatend ifend ifelseput titleList into ScanListend ifput scanID into prevScanIDif scanDate <> empty and op2 <> false thenput "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ･ﾃｼﾃｧﾄｱﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃｨ竕ﾃﾂｵﾃﾂｮﾃｫ窶愿ﾃｸﾃ竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put extDate(ScanList,scanDate) into ScanListend ifif ScanList is empty thenplay boing c5hide msgexit searchListend ifhide msgif sh is false thenplay harpsichord g6sif op2 then get "ﾃｯ竏づｩﾃｶﾃｳﾃ津⑦" else get "IDﾃ⑦"if scanID <> empty then put it & quote & scanID & quote into p1else put empty into p1if scanDate <> empty then put "ﾃ①" & scanDate & " ﾃﾂｻﾃｧ~" into p2else put empty into p2put "ﾃ⒃" && the number of lines of ScanList && "ﾃ･ﾃｨﾃ⒄" into nif op2 thenput ListSelect ("3",ScanList,p1 && "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃﾃ催ｳﾃｳ" & p2 && n,"ﾃｬoﾃ①ﾃｲ^","16,36",return,"ASLFont+,9",2003) into sList-- put ListSelect ("3",ScanList,p1 && "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃﾃ催ｳﾃｳ" & p2 && n,"ﾃｬoﾃ①ﾃｲ^","9,29,504,314",return,"ASLFont+,9") into sListelseput ListSelect ("3#",ScanList,p1 && "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃﾃ催ｳﾃｳ" & p2 && n,"ﾃｬoﾃ①ﾃｲ^","16,36",return,"ASLFont+,9",2001) into sListend ifelseput "ﾃｬoﾃ①ﾃｲ^" into ListSelectExitput empty into sListend ifset the cursor to watchif ListSelectExit is "ﾃｬoﾃ①ﾃｲ^" and scanID <> empty and op2 is false thenif the optionKey is down thenrepeat with r = 1 to the number of lines of sListput line (line r of sList) of ScanList into line r of sListend repeatputList titleList,sListelseenterList forumName,scanID,scanDate,ky,ScanList,sListend ifelse if ListSelectExit is "ﾃ雨ﾃ[ﾃ栄ﾃｧﾃ湘ｪﾂｨ" thencreateCard forumName,scanID,scanDate,ky,ScanList,sListelse if sList <> empty and op2 and ListSelectExit is in "ﾃｬoﾃ①ﾃｲ^,ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" thenif ListSelectExit is in "ﾃｬoﾃ①ﾃｲ^" and the optionKey is up thenrepeat with r = 1 to the number of lines of sListset the cursor to busyget line r of sListput char 7 to 14 of it into scanIDaddRList forumName,scanID,scanDate,ky,"ALL",itend repeatelseputList titleList,sListend ifend ifhide msgend searchListon enterList forumName,scanID,scanDate,ky,ScanList,sListput Switch(sList) into readListif readList is empty or the number of lines of ScanList = the number of lines of sList thenput line 1 of ScanList into titleput "ALL" into readListelseput line (item 1 of readList) of ScanList into titleput shortNumber(readList,true,true) into readListend ifaddRList forumName,scanID,scanDate,ky,readList,titleend enterListon addRList forumName,scanID,scanDate,ky,readList,titleglobal CNMBBSreadList,CNMBULreadListif ky is ". BBS" and "-" is not in forumName and forumName is a integer thenput putSpace(forumName,2) into forumNameend ifget forumName & "," & scanIDif ky is ". BBS" then put CNMBBSreadList into listelse put CNMBULreadList into listput item 1 of MtScanList(list,it) into pdelete char 1 to 30 of titleget it & "," & scanDate & "," & readList & "ﾃ⑦" & titleif p <> empty then put it into line p of listelse put it & return after listsort lines of listif ky is ". BBS" thenput list into CNMBBSreadListmark cd " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ "elseput list into CNMBULreadListmark cd " BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ "end ifend addRListon createCard forumName,scanID,scanDate,ky,ScanList,sListglobal cNMDialogOFFlock screenset the lockmessages to trueput "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂﾃ雨ﾃ[ﾃ栄ﾃｧﾃ湘ｪﾂｨﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"put empty into readListrepeat with r = 1 to the number of lines of sListput word 1 of line r of sList & "," after readListend repeatif last char of readList is "," then delete last char of readListput the number of lines of ScanList into nrepeat with r = 1 to nif r = word 1 of line 1 of sList thenget "*"delete line 1 of sListelseget " "end ifput putSpace (r,3,"R") && it into char 1 to 5 of line r of ScanListend repeatput bg fld "header" into headerput empty into cdNumput the number of this cd into cn1put the number of last cd of this bg into cn2repeat with r = cn1 to cn2get bg fld id 22 of cd rif it is forumName and bg fld id 31 of cd r is "ID:" and bg fld id 30 of cd r is scanID thenput r into cdNumexit repeatend ifend repeatif cdNum <> empty thengo to cd cdNummark this cdelseput forumName & ky into cNMDialogOFFif scanID <> empty thenput "[" & scanID & "]" after cNMDialogOFFend ifdoMenu "New Card"put false into cNMDialogOFFput forumName into bg fld id 22mark this cdend ifset the hilite of bg btn "createMark" to trueput ScanList into bg fld "titleList"put header into bg fld "header"put "ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦" & n into bg fld "listNum"if shortNum() and readList <> empty thenput shortNumber(readList,true,true) into readListend ifput readList into bg fld "readList"put scanID into bg fld "scanID"if scanID <> empty thenput "ID:" into bg fld id 31show bg fld id 30if readList is empty then set the hilite of bg btn "ALL" to trueend ifput scanDate into bg fld "scanDate"if scanDate <> empty thenput "DATE:" into bg fld id 32show bg fld id 33end ifcheckKeyWordcompactST 90end createCardon putList titleList,sListglobal CNMBBStListput bg fld "readList" into rListrepeat with r = 1 to the number of lines of sListget line r of sListif MtScanList(rList,word 1 of it,,true) is empty thenput item 1 of MtScanList(titleList,it,,true) into lput word 1 of it into item (number of items of rList) + 1 of rListput "*" into char 5 of line L of titleListend ifend repeatif "-" is in rList thenif shortNum() is false then put shortNumber(rList,false,true) into rListelse put shortNumber(rList,true,true) into rListelse sort items of rList numericput rList into bg fld "readList"put titleList into bg fld "titleList"put titleList into CNMBBStListend putListfunction extDate ScanList,scanDateput "." after char 2 of scanDateput "." after char 5 of scanDateconvert scanDate to dateItemsput item 1 of scanDate & addZero(item 2 of scanDate,2) & addZero(item 3 of scanDate,2) into scanDateput nextSEAdate(,true) into todayput char 1 to 4 of today into YYYYput the number of lines of ScanList into nrepeat with r = 1 to nput char 17 to 21 of line r of ScanList into MMDDif MMDD <> pMMDD thenput MMDD into pMMDDdelete char 3 of MMDDget addZero(value(MMDD),4)if it > char 5 to 8 of today then put YYYY - 1 before itelse put YYYY before itif it < scanDate thendelete line r to n of ScanListexit repeatelseif pMMDD is char 17 to 21 of last line of ScanList then exit repeatend ifend ifend repeatreturn ScanListend extDate</script> </part> <part> <id>37</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>206</left> <top>28</top> <right>356</right> <bottom>99</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>BBSmenu</name> <script></script> </part> <part> <id>38</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>206</left> <top>98</top> <right>356</right> <bottom>169</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>BBSnameList1</name> <script></script> </part> <part> <id>39</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>410</left> <top>317</top> <right>430</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13303</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGOPrevBMend mouseUp</script> </part> <part> <id>40</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>429</left> <top>317</top> <right>449</right> <bottom>341</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>13304</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpGONextBMend mouseUp</script> </part> <part> <id>41</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>319</top> <right>31</right> <bottom>340</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>21700</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>GoHome</name> <script>on mouseUpgoHomeend mouseUp</script> </part> <part> <id>42</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>160</left> <top>318</top> <right>274</right> <bottom>339</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name> BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ </name> <script>on mouseUpvisual effect dissolve very fastgo to cd " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ "end mouseUp</script> </part> <part> <id>43</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>8</left> <top>28</top> <right>505</right> <bottom>47</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>-1</titleWidth> <icon>-1</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>FieldTitleBar</name> <script></script> </part> <part> <id>44</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>16</left> <top>31</top> <right>29</right> <bottom>44</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseStillDownif the mouseLoc is within (the rect of me) thenset the icon of me to 23100set the cursor to arrowelseset the icon of me to 0end ifend mouseStillDownon mouseUpglobal CNMeditTextset the icon of me to 0select emptylock screenset the cursor to watchif (CNMeditText is true or the optionKey is down) and bg fld id 45 <> empty thenbeepanswer "ﾃｯﾅ禿ｧXﾃｬ窶｡ﾃｳeﾃï｣ｿﾃｯ竄ｬﾃｫ竏づﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Cancel" or "No" or "Yes"if it is "Cancel" then exit mouseUpif it <> "No" thenput postPath() into postPathput postPath & bg fld id 46 into filePathMtWriteFile filePath,bg fld id 45,EditorCreator()changeEndMark filePathmark cd " BBS ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ "end ifend ifput empty into bg fld id 45put " " into bg fld id 46hide bg btn id 43hide bg btn id 44hide bg fld id 45hide bg fld id 46setScrollFld "bg fld id 3"put false into CNMeditTextunlock screen with zoom close fasthide msgend mouseUp</script> </part> <part> <id>48</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>242</left> <top>282</top> <right>267</right> <bottom>307</bottom> </rect> <style>shadow</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>28505</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃｪVﾃ｣Kﾃｧﾃ湘ｪﾂｨ</name> <script>on mouseUpglobal CNMeditTextlock screenset the cursor to watchput (the optionKey is down) into opget bg fld id 22if it is empty thenbeepanswer "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｮ窶佚ｧﾃ愿ï｣ｿﾃｪ窶ｺﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit mouseUpend ifput postPath() into postPathput "_BBS(" & it & ")" into fileNameput fileListInFldr(postPath) into postFileListput changeName (fileName,postFileList,"_") into fileNameput EditorPath() into EditorPathif EditorPath is empty or op is false thenput fileName into bg fld id 46set the width of bg fld id 46 to length (bg fld id 46) * 9put "SUBJ:" & return & "KEY:" & return into bg fld id 45put "/POST" & return into line 15 of bg fld id 45show bg btn id 43show bg btn id 44show bg fld id 45show bg fld id 46setScrollFld "bg fld id 45"put false into CNMeditTextunlock screen with zoom open fastelseput postPath & fileName into filePathget "SUBJ:" & return & "KEY:" & returnput "/POST" & return into line 15 of itMtWriteFile filePath,it,EditorCreator()-- mark cd " BBS ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ "open filePath with EditorPathend ifend mouseUp</script> </part> <part> <id>47</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>212</left> <top>282</top> <right>237</right> <bottom>307</bottom> </rect> <style>shadow</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>24670</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name> <script>on mouseUpglobal ListSelectExit,CNMeditTextput bg fld id 22 into nif n is empty thenbeepanswer "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｮ窶佚ｧﾃ愿ï｣ｿﾃｪ窶ｺﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit mouseUpend ifput BBSFileList() into listanswer file "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｮ竕ﾃ･ﾃｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "TEXT"if it is empty then exit mouseUpput pathToFile(it) into fileNameput postPath() into postPathif MtScanList(list,fileName,,true) is empty thenput it into filePathput "_BBS(" & n & ")" into fileNameput fileListInFldr(postPath) into postFileListput changeName (fileName,postFileList,"_") into fileNameput true into CNMeditTextelseput PostPath & fileName into filePathput false into CNMeditTextend ifput fileName into bg fld id 46set the width of bg fld id 46 to length (fileName) * 9lock screenset the cursor to watchput empty into theTextopen file filePathget the resultif it <> empty thenbeepanswer itexit mouseUpend ifrepeatread from file filePath for 16384if it is empty then exit repeatput it after theTextend repeatclose file filePathif char 1 to 3 of line 1 of theText <> "SUB" thenput "SUBJ:" & return & "KEY:" & return before line 1 of theTextput true into CNMeditTextend ifput theText into bg fld id 45show bg btn id 43show bg btn id 44show bg fld id 45show bg fld id 46setScrollFld "bg fld id 45"unlock screen with zoom open fastend mouseUp</script> </part> <part> <id>45</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>8</left> <top>46</top> <right>505</right> <bottom>315</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name></name> <script>on closeFieldglobal CNMeditTextput true into CNMeditTextend closeField</script> </part> <part> <id>46</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>220</left> <top>29</top> <right>292</right> <bottom>46</bottom> </rect> <style>opaque</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>18</textHeight> <name></name> <script></script> </part> <part> <id>49</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <false /> </enabled> <rect> <left>448</left> <top>6</top> <right>466</right> <bottom>24</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <false /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>12490</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>openGuide</name> <script>on mouseUpCNMGuide "ﾃ･fﾃｩﾂｶﾃｮﾂｬ(BBS)"end mouseUp</script> </part> <part> <id>50</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>98</left> <top>61</top> <right>189</right> <bottom>273</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>ﾃｧﾃ古ｨﾃｺﾃ鵜ﾃ[ﾃ嘉ｨﾃ[ﾃ栄ﾃ嘉､ﾃ厩ﾃ曳</name> <script>on mouseUpif the optionKey is down thendelete the clicklineelseput bg fld id 50 into listget the selectedtextif it is empty thenask "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗鵜ﾃ[ﾃ嘉ｨﾃ[ﾃ栄ﾃ⑿ﾃｯ竏づｩﾃｶﾃｳﾃ津⒀ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"end ifif it <> empty and MtScanList(list,it,,true) is empty thenput it & return after listsort lines of listput list into bg fld id 50end ifend ifend mouseUp</script> </part> <part> <id>52</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>467</left> <top>6</top> <right>485</right> <bottom>24</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>6356</icon> <textAlign>center</textAlign> <font>Chiyoda</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>HelpON/OFF</name> <script>on mouseUpHelpToggleend mouseUp</script> </part> <part> <id>53</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <true /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>206</left> <top>168</top> <right>356</right> <bottom>239</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>BBSnameList2</name> <script></script> </part> <part> <id>55</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>355</left> <top>98</top> <right>505</right> <bottom>169</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>ASLFont+</font> <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>KeyList</name> <script></script> </part> <content> <layer>background</layer> <id>1</id> <text>ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS</text> </content> <content> <layer>background</layer> <id>25</id> <text>0 / 0</text> </content> <content> <layer>background</layer> <id>15</id> <text> BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ BBS ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ Untitled_1</text> </content> <content> <layer>background</layer> <id>37</id> <text> 2. ﾃ嘉ﾃ[ﾃ嘉｣ﾃｳFﾃｭBﾃ窶ｺﾃﾂｬﾃﾃ佚ﾃ甘ﾂｧ(ﾃｱﾂｺ)ﾃ⑿BBSMFRENﾃ⒀ 3. ﾃ嘉ﾃ[ﾃ嘉｣ﾃｳFﾃｭBﾃ窶ｺﾃﾂｬﾃﾃ佚ﾃ甘ﾂｧ(ID)ﾃ⑿BBSMFREﾃ⒀ 4. ﾃﾂｻﾃﾂｩﾃ窶ｹﾃ窶ｦﾃﾂｻﾃﾃ偲ﾂｧﾃ⑩ﾃ⑿BBNAKAMAﾃ⒀ 5. ﾃﾃ古ﾎｩﾃﾂｵﾃﾃε越ﾃ[ﾃ嘉ﾃ謁ﾃ[ﾃ姥ﾃｨ窶禿｢ﾃ禿⑿BBSHPﾃ⒀ 6. ﾃｮﾃ妥ﾃ凝窶ｹﾃ竏妥⑴ﾃｮﾃ嘉ﾂ｢ﾃ窶ｹﾃ竏, 6- 1. ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃ)Windowsﾃ⑿BBSWIN1ﾃ⒀, 6- 2. ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃ)ﾃｫﾂｺOSﾃ⑴PC-98ﾃ⑿BBSOOSﾃ⒀, 6- 3. ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃε⑴ﾃｩﾂｸﾃｯ窶)Macﾃ⑿BBSMACﾃ⒀, 6- 4. ﾂ ïｬづｸ竏ｫ窶ｺ(窶懌\敕ｿﾃｬﾃｴﾂ ïｬや楪ｬ)Winﾃ⑿BBSPARTSﾃ⒀, 6- 5. ﾂ ïｬづｸ竏ｫ窶ｺ(ﾎｩ竏堕ｨ竕暗ｬﾃｴﾃｩﾂｸﾃｯ窶)Winﾃ⑿BBSPERIﾃ⒀, 6- 6. ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ⑿ﾃﾂｪﾃﾃεｫﾂｺﾃ⒀ﾃ⑿BBSPCOTHﾃ⒀, 6- 7. ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ噂ﾃ液ﾃ曳ﾃ⑿BBSSOFTﾃ⒀, 6- 8. PDAﾃ⑴ﾂ ïｬや樞\犯津佚ïｬづ⑴窶ｹ竏榲ïｬやぎﾃ⑿BBSMOBﾃ⒀, 6- 9. ﾃ荏ﾃ臼ﾃ叡ﾃ曳ﾃ⑿BBSTICKﾃ⒀, 6-10. ﾃ雨ﾃ[ﾃ⑥ﾃ､ﾃｷﾃｲAﾃｳpﾃｯiﾃ⑴ﾃｯﾃｮﾃｯiﾃ⑿BBSCARﾃ⒀, 6-11. ﾃｨﾃｫﾃｪ窶禿⑴ﾃｩGﾃｩﾃｨﾃ⑿BBSBOOKﾃ⒀, 6-12. ﾃ渦ﾃ[ﾃ嘉ﾃ｣@ﾃ⑴ﾃ渦ﾃ[ﾃ嘉ﾃ噂ﾃ液ﾃ曳ﾃ⑿BBSGAMEﾃ⒀, 6-13. ﾃ嘘ﾃ嘉･ﾃ丑ﾃ運ﾃ[ﾃ浦ﾃ⑴ﾃ越ﾃ詠ﾃ[ﾃ⑿BBSCOLLﾃ⒀, 6-14. ﾃ迂ﾃ[ﾃ映ﾃ隠ﾃ迂ﾃ⑴ﾃ詠ﾃ姥ﾃ嘉姪陰ﾃ嘉｣ﾃ⑿BBSAVﾃ⒀, 6-15. ﾃｬdﾃｲbﾃ､ﾃｷﾃｲAﾃ⑴ﾃ｢竏ﾃｬdﾃ⑴ﾃ｢竏ﾃ｣ﾃ氾⑿BBSTELﾃ⒀, 6-16. ﾃε淌伉ｺﾃ窶ｺﾃｩGﾃ｢窶ｺﾃ｢ﾏ\ﾃ､y ﾎｩﾅ抵ｬや楪ｬﾃ⑿BBSZAKKAﾃ⒀, 6-17. ﾃﾂｪﾃﾃεｫﾂｺﾃ⑿BBSOTHﾃ⒀ 7. ﾃ窶ﾃ竏榲窶ｹﾃ竏妥⑴ﾃｨﾋ愿ﾂ｡ﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑿BBSFRMNﾃ⒀ 8. ﾎｩﾃ\ïｬづｿﾃ佝津⑿ﾃﾂｱﾃﾂｱﾃﾃ偲⒀ﾃﾃε嘘ﾃ[ﾃ永ﾃ[ﾃ⑿BBSSPRﾃ⒀ 9. ﾃ｣竕･ﾃﾂｶﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢, 9- 1. ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ⑴ﾃｭﾂﾃｪMﾃ､ﾃｷﾃ･Wﾃ⑿BBSTCOMﾃ⒀, 9- 2. ﾃﾂｪﾃﾃεｫﾂｺﾃ⑿BBSTOTHﾃ⒀10. ﾃ｣竕･ﾃﾂｶﾃ窶ｹﾃ竏ﾃ｢竏ﾃｭﾃ偲｣竕･ﾃｩtﾃ⑴ﾃｫﾂｺ竅竏渉｡ﾂｨ竏榲⑿BBSLECﾃ⒀11. ﾃｩﾂｮﾃﾃ甘ﾃ凝ｨﾃ禿ｯﾃ津嘘ﾃ[ﾃ永ﾃ[ﾃ⑿BBSINFOﾃ⒀12. ﾃ窶敕ﾃ暗竕･ﾃ竏ﾃｨﾃ禿ｯﾃ,12- 1. ﾃｬﾋ凖ｱ{ﾃｧﾃｫﾃｬ窶｡ﾃ⑴ﾃ､Cﾃ､Oﾃ⑿BBSJAPANﾃ⒀13. ﾃﾂｮﾃ竏ﾃﾂｻﾃﾃε･fﾃｩﾂｶﾃｮﾂｬ,13- 1. ﾃｳFﾃｭBﾃ⑴ﾃｭﾃ｡ﾃ､窶佚ｯﾃづｨW,13- 2. ﾃｮﾃ妥ﾃ凝窶ｹﾃ竏妥⑴ﾃｮﾃ嘉ﾂ｢ﾃ窶ｹﾃ竏,13- 3. ﾃﾂｪﾃﾃεｫﾂｺ14. ﾃﾂｮﾃﾂｵﾃ竕､ﾃ竏ﾃｨﾃ禿ｯﾃ津閲ﾃ[ﾃ栄ﾃ⑿BBSWORKﾃ⒀</text> </content> <content> <layer>background</layer> <id>38</id> <text> 2. ﾃ嘉ﾃ[ﾃ嘉｣ﾃｳFﾃｭBﾃ窶ｺﾃﾂｬﾃﾃ佚ﾃ甘ﾂｧ(ﾃｱﾂｺ) 3. ﾃ嘉ﾃ[ﾃ嘉｣ﾃｳFﾃｭBﾃ窶ｺﾃﾂｬﾃﾃ佚ﾃ甘ﾂｧ(ID) 4. ﾃﾂｻﾃﾂｩﾃ窶ｹﾃ窶ｦﾃﾂｻﾃﾃ偲ﾂｧﾃ⑩ 5. ﾃﾃ古ﾎｩﾃﾂｵﾃﾃε越ﾃ[ﾃ嘉ﾃ謁ﾃ[ﾃ姥ﾃｨ窶禿｢ﾃ 6- 1. ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃ)Windows 6- 2. ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃ)ﾃｫﾂｺOSﾃ⑴PC-98 6- 3. ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃε⑴ﾃｩﾂｸﾃｯ窶)Mac 6- 4. ﾂ ïｬづｸ竏ｫ窶ｺ(窶懌\敕ｿﾃｬﾃｴﾂ ïｬや楪ｬ)Win 6- 5. ﾂ ïｬづｸ竏ｫ窶ｺ(ﾎｩ竏堕ｨ竕暗ｬﾃｴﾃｩﾂｸﾃｯ窶)Win 6- 6. ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ⑿ﾃﾂｪﾃﾃεｫﾂｺﾃ⒀ 6- 7. ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ噂ﾃ液ﾃ曳 6- 8. PDAﾃ⑴ﾂ ïｬや樞\犯津佚ïｬづ⑴窶ｹ竏榲ïｬやぎ 6- 9. ﾃ荏ﾃ臼ﾃ叡ﾃ曳 6-10. ﾃ雨ﾃ[ﾃ⑥ﾃ､ﾃｷﾃｲAﾃｳpﾃｯiﾃ⑴ﾃｯﾃｮﾃｯi 6-11. ﾃｨﾃｫﾃｪ窶禿⑴ﾃｩGﾃｩﾃｨ 6-12. ﾃ渦ﾃ[ﾃ嘉ﾃ｣@ﾃ⑴ﾃ渦ﾃ[ﾃ嘉ﾃ噂ﾃ液ﾃ曳 6-13. ﾃ嘘ﾃ嘉･ﾃ丑ﾃ運ﾃ[ﾃ浦ﾃ⑴ﾃ越ﾃ詠ﾃ[ 6-14. ﾃ迂ﾃ[ﾃ映ﾃ隠ﾃ迂ﾃ⑴ﾃ詠ﾃ姥ﾃ嘉姪陰ﾃ嘉｣ 6-15. ﾃｬdﾃｲbﾃ､ﾃｷﾃｲAﾃ⑴ﾃ｢竏ﾃｬdﾃ⑴ﾃ｢竏ﾃ｣ﾃ 6-16. ﾃε淌伉ｺﾃ窶ｺ/ﾃｩGﾃ｢窶ｺ/ﾃ｢ﾏ\ﾃ､y/ﾎｩﾅ抵ｬや楪ｬ 6-17. ﾃﾂｪﾃﾃεｫﾂｺ 7. ﾃ窶ﾃ竏榲窶ｹﾃ竏妥⑴ﾃｨﾋ愿ﾂ｡ﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ 8. ﾎｩﾃ\ïｬづｿﾃ佝津⑿ﾃﾂｱﾃﾂｱﾃﾃ偲⒀ﾃﾃε嘘ﾃ[ﾃ永ﾃ[ 9- 1. ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ⑴ﾃｭﾂﾃｪMﾃ､ﾃｷﾃ･W 9- 2. ﾃﾂｪﾃﾃεｫﾂｺ10. ﾃ｣竕･ﾃﾂｶﾃ窶ｹﾃ竏ﾃ｢竏ﾃｭﾃ偲｣竕･ﾃｩtﾃ⑴ﾃｫﾂｺ竅竏渉｡ﾂｨ竏11. ﾃｩﾂｮﾃﾃ甘ﾃ凝ｨﾃ禿ｯﾃ津嘘ﾃ[ﾃ永ﾃ[12- 1. ﾃｬﾋ凖ｱ{ﾃｧﾃｫﾃｬ窶｡ﾃ⑴ﾃ､Cﾃ､O13- 1. ﾃｳFﾃｭBﾃ⑴ﾃｭﾃ｡ﾃ､窶佚ｯﾃづｨW13- 2. ﾃｮﾃ妥ﾃ凝窶ｹﾃ竏妥⑴ﾃｮﾃ嘉ﾂ｢ﾃ窶ｹﾃ竏13- 3. ﾃﾂｪﾃﾃεｫﾂｺ14. ﾃﾂｮﾃﾂｵﾃ竕､ﾃ竏ﾃｨﾃ禿ｯﾃ津閲ﾃ[ﾃ栄</text> </content> <content> <layer>background</layer> <id>53</id> <text> 2. ﾃ嘉ﾃ[ﾃ嘉｣ﾃｳFﾃｭBﾃ窶ｺﾃﾂｬﾃﾃ佚ﾃ甘ﾂｧ(ﾃｱﾂｺ) 3. ﾃ嘉ﾃ[ﾃ嘉｣ﾃｳFﾃｭBﾃ窶ｺﾃﾂｬﾃﾃ佚ﾃ甘ﾂｧ(ID) 4. ﾃﾂｻﾃﾂｩﾃ窶ｹﾃ窶ｦﾃﾂｻﾃﾃ偲ﾂｧﾃ⑩ 5. ﾃﾃ古ﾎｩﾃﾂｵﾃﾃε越ﾃ[ﾃ嘉ﾃ謁ﾃ[ﾃ姥ﾃｨ窶禿｢ﾃ 6- 1. ﾃｮﾃ妥ｮﾃ嘉⑦ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃ)Windows 6- 2. ﾃｮﾃ妥ｮﾃ嘉⑦ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃ)ﾃﾂｪﾃﾃεｫﾂｺOSﾃ⑴PC-98 6- 3. ﾃｮﾃ妥ｮﾃ嘉⑦ﾂ ïｬづｸ竏ｫ窶ｺ(ﾃｱ{ﾃｫﾃε⑴ﾃ英ﾃ[ﾃ営ﾃ⑴ﾃｩﾂｸﾃｯ窶敕｣@ﾃ､ﾃ)Mac 6- 4. ﾃｮﾃ妥ｮﾃ嘉⑦ﾂ ïｬづｸ竏ｫ窶ｺ(窶懌\敕ｿﾃ⑴竏や榿抵ｬﾃ⑴ﾅ抵ｬ≫榿抵ｬﾃｬﾃｴﾂ ïｬや楪ｬ)Win 6- 5. ﾃｮﾃ妥ｮﾃ嘉⑦ﾂ ïｬづｸ竏ｫ窶ｺ(ﾎｩ竏堕ｨ竕/ﾃïｬづｿ窶ｺﾂｿ竏/窶昶ﾂｿ竏榲ｬﾃｴﾃｩﾂｸﾃｯ窶敕｣@ﾃ､ﾃ)Win 6- 6. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ⑿ﾃﾂｪﾃﾃεｫﾂｺﾃ⒀ 6- 7. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ噂ﾃ液ﾃ曳 6- 8. ﾃｮﾃ妥ｮﾃ嘉⑦PDAﾃ⑴ﾃ英ﾃ[ﾃ嘉ﾃ曳ﾃ叡ﾃ益ﾃ⑴ﾃ嘉ｨﾃ[ﾃ益ﾃ嘉ｧ 6- 9. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃ荏ﾃ臼ﾃ叡ﾃ曳 6-10. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃ雨ﾃ[ﾃ⑥ﾃ､ﾃｷﾃｲAﾃｳpﾃｯiﾃ⑴ﾃｯﾃｮﾃｯi 6-11. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃｨﾃｫﾃｪ窶禿⑴ﾃｩGﾃｩﾃｨ 6-12. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃ渦ﾃ[ﾃ嘉ﾃ｣@ﾃ⑴ﾃ渦ﾃ[ﾃ嘉ﾃ噂ﾃ液ﾃ曳 6-13. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃ嘘ﾃ嘉･ﾃ丑ﾃ運ﾃ[ﾃ浦ﾃ⑴ﾃ越ﾃ詠ﾃ[ 6-14. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃ迂ﾃ[ﾃ映ﾃ隠ﾃ迂ﾃ⑴ﾃ詠ﾃ姥ﾃ嘉姪陰ﾃ嘉｣ 6-15. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃｬdﾃｲbﾃ､ﾃｷﾃｲAﾃ⑴ﾃ｢竏ﾃｬdﾃ⑴ﾃ｢竏ﾃ｣ﾃ 6-16. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃ液ﾃ院ﾃ叡ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ/ﾃｩGﾃ｢窶ｺ/ﾃ｢ﾏ\ﾃ､y/ﾃ厩ﾃ榎ﾃ[ﾃ営ﾃｳpﾃｯi 6-17. ﾃｮﾃ妥ｮﾃ嘉⑦ﾃﾂｪﾃﾃεｫﾂｺ 7. ﾃｱ竕･ﾃｳﾃｸﾃ竕暗窶ﾃ竏榲窶ｹﾃ竏妥⑴ﾃｨﾋ愿ﾂ｡ﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ 8. ﾃ厩ﾃ鋭ﾃ嘉､ﾃ叡ﾃ曳ﾃ⑿ﾃﾂｱﾃﾂｱﾃﾃ偲⒀ﾃﾃε嘘ﾃ[ﾃ永ﾃ[ 9- 1. ﾃ｣竕･ﾃﾂｶﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑦ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ⑴ﾃｭﾂﾃｪMﾃ､ﾃｷﾃ･W 9- 2. ﾃ｣竕･ﾃﾂｶﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑦ﾃﾂｪﾃﾃεｫﾂｺ10. ﾃ｣竕･ﾃﾂｶﾃ窶ｹﾃ竏妥⑿ﾃ｢竏ﾃｭﾃ偲｣竕･ﾃｩtﾃ⑴ﾃﾂｪﾃﾃεｫﾂｺﾃ嘉･ﾃ丑ﾃ荏ﾃ嘉嘉[ﾃ⒀11. ﾃｩﾂｮﾃﾃ甘ﾃ凝ｨﾃ禿ｯﾃ津嘘ﾃ[ﾃ永ﾃ[12- 1. ﾃ窶敕ﾃ暗竕･ﾃ竏ﾃｨﾃ禿ｯﾃ津⑦ﾃｬﾋ凖ｱ{ﾃｧﾃｫﾃｬ窶｡ﾃ⑴ﾃ､Cﾃ､O13- 1. ﾃﾂｮﾃ竏ﾃﾂｻﾃﾃε･fﾃｩﾂｶﾃｮﾂｬﾃ⑦ﾃｳFﾃｭBﾃ⑴ﾃｭﾃ｡ﾃ､窶佚ｯﾃづｨW13- 2. ﾃﾂｮﾃ竏ﾃﾂｻﾃﾃε･fﾃｩﾂｶﾃｮﾂｬﾃ⑦ﾃｮﾃ妥ﾃ凝窶ｹﾃ竏妥⑴ﾃｮﾃ嘉ﾂ｢ﾃ窶ｹﾃ竏13- 3. ﾃﾂｮﾃ竏ﾃﾂｻﾃﾃε･fﾃｩﾂｶﾃｮﾂｬﾃ⑦ﾃﾂｪﾃﾃεｫﾂｺ14. ﾃﾂｮﾃﾂｵﾃ竕､ﾃ竏ﾃｨﾃ禿ｯﾃ津閲ﾃ[ﾃ栄</text> </content> <name>ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS</name> <script>on openCardset the visible of bg fld id 30 to not(bg fld id 31 is "None")set the visible of bg fld id 33 to not(bg fld id 32 is "None")pass openCardend openCardon closeCardglobal CNMBBStListput empty into CNMBBStListif the visible of bg fld id 45 thensend "mouseUp" to bg btn id 44end ifcheckKeyWord falsepass closeCardend closeCardon openbackgroundglobal CNMBBSreadListput cd fld id 1 of cd " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " into CNMBBSreadListpass openbackgroundend openbackgroundon closebackgroundglobal CNMBBSreadList,prevScanIDput empty into prevScanIDput line 1 to 400 of CNMBBSreadList into cd fld id 1 of cd " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ "if the visible of bg fld id 50 thenset the hilite of bg btn id 51 to falsesend "mouseUp" to bg btn id 51end ifpass closebackgroundend closebackgroundon suspendStackglobal CNMBBSreadListget " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ "if the short name of this cd <> it then put line 1 to 400 of CNMBBSreadList into cd fld id 1 of cd itpass suspendStackend suspendStackon newCardset the cursor to watchput "None" into bg fld id 31put "None" into bg fld id 32set the hilite of bg btn id 35 to falsepass newCardend newCardon sortcdset the cursor to watchif bgcdList() <> bg fld "subMenuList" thenput "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ雨ﾃ[ﾃ栄ﾃｯﾂｿﾃ笳甘ｫﾃｷﾃﾂｶﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"push cardsort cards of this bg international by bg fld "subMenu"pop cardhide msgend ifend sortcdon commandKeyDown whichKeyif whichKey is "f" and the short name of this cd is not in " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ , BBS ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ " thensendBtn "bg btn id 36"else if whichKey is "n" thenif the short name of this cd is in " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " then go to last cd of this bgpass commandKeyDownelse if whichKey is "w" thenif the visible of bg fld id 45 thensend "mouseUp" to bg btn id 44elsepass commandKeyDownend ifelsepass commandKeyDownend ifend commandKeyDownon controlKey whichKeyget the short name of this cdif whichKey = 1 and the short name of this cd is " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " then -- A "ﾃｮCﾃ窶敕ｩwﾃｭﾃ"sendBtn "cd btn id 5"else if whichKey = 12 then -- Lif it <> " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " then sendBtn "bg btn id 42"else sendBtn "cd btn id 4"else if it <> " BBS ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ " and it <> " BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ " thenif whichKey = 14 then -- N "ﾃｪVﾃ｣Kﾃｧﾃ湘ｪﾂｨ"sendBtn "bg btn id 48"else if whichKey = 18 then -- R "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ"sendBtn "bg btn id 47"elsepass controlKeyend ifelsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ[ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput (cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ") into modeput "3,4,5,21,30,33" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatset the hilite of bg btn id 23 to falseset the hilite of bg btn id 35 to falseif excludeMenuItem() and mode thenput empty into bg fld id 22put empty into bg fld id 55reNameCard "Untitled_1"end ifcheckKeyWord falseend clearDataon readLogFile4 filePath,KY1,EndK1,GOcomd,cutModeglobal CNMwriteTxtput (the shiftKey is down) into shif filePath is empty thenget selectLogFile()if it is empty then exit readLogFile4put it into filePathend ifset the cursor to watchput empty into headerput empty into theLogput empty into titleTxtput empty into CNMwriteTxtopen file filePathget the resultif it <> empty thenbeepput itexit readLogFile4end ifput "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"if KY1 is "DO BBS" then put KY1 into KY else put return & KY1 into KYrepeatread from file filePath for 16384if it is empty then exit repeatif header is empty thenput cNifHeader(filePath,it) into headerend ifif KY1 is in it thenput it into theLogput offset (KY,theLog) into pxif return is not in KY then put last line of char 1 to px of theLog into lastLineelse put empty into lastLinedelete char 1 to px of theLogif KY1 is "DO BBS" then put checkPrompt(lastLine & line 1 of theLog,"DO ") into ForumNamerepeatput offset (KY,theLog) into pyif py = 0 thenread from file filePath for 16384if it is empty then--if EndK1 is in theLog thenput offset (return & EndK1,theLog) into pxput char 1 to px of theLog into titledelete char 1 to px of theLogrepeatput offset (return & EndK1,theLog) into pyput (GOcomd is "BBS" and "BBS>GO " is not in line 1 of theLog and "BBS>MAIL" is not in line 1 of theLog) into b1put (GOcomd is "CLIP" and EndK1 is not in line 1 of theLog) into b2if py <> 0 and (b1 or b2) thenput char 1 to py of theLog after titledelete char 1 to py of theLogelseput line 1 of theLog after titlesend "RoomTitle ForumName,title,header" to this cdexit repeatend ifend repeatend if--exit repeatend ifput it after theLogelseif return is not in KY thenput last line of char 1 to py of theLog into lastLineend ifsend "RoomTitle ForumName,char 1 to py of thelog,header" to this cddelete char 1 to py of thelogif KY1 is "DO BBS" thenput checkPrompt(lastLine & line 1 of theLog,"DO ") into ForumNameend ifend ifend repeatend ifend repeatclose file filePathif CNMwriteTxt <> empty and sh is false thenput " by NIFTY Corporation" & return &ﾂｬ"ﾃﾃ賎O" && GOcomd & return before CNMwriteTxtput return & "ﾃﾃ前FF" & return after CNMwriteTxtput PathToFile(line 2 of header) into fnif char 1 of fn is "_" then delete char 1 of fnput logPath() & fn & "-" & GOcomd into writeFilePathMtWriteFile writeFilePath,CNMwriteTxt,"Ccut"put empty into CNMwriteTxt-- ﾃ嘉ｧﾃ碓ﾃ雨ﾃ叡ﾃ曳put knifePath() into knifePathput pathTofile(NasuPath()) into Nasuif Nasu <> empty thenif the version < 2.1 thenput the number of lines of the menus into mput (Nasu is not in menu 1 and Nasu is not in menu m) into cutOKelseput (Nasu is not in menu application) into cutOKend ifif knifePath <> empty and cutOK and cutMode thenopen writeFilePath with knifePathend ifend ifend ifsortcdcompactST 100hide msgend readLogFile4-- ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺon RoomTitle ForumName,theLog,headerglobal CNMwriteTxt,CNMBBStListput empty into CNMBBStListput offset(return & "BBS>",theLog) into yput char 1 to y of theLog into menuTxtdelete char 1 to y of theLogput "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" into keyput menuNumber(menuTxt,key) into menuNumif "-" is in menuNum thenput the itemDelimiter into prevDset the itemDelimiter to "-"put putSpace(item 1 of menuNum,2) & "-" & putSpace(item 2 of menuNum,2) into menuNumset the itemDelimiter to prevDend ifif menuNum is empty then put ForumName into menuNumput getCdName(menuNum,true) into line 1 of headerput empty into KeyListput nextSEAdate() into cutDateput "/" after char 2 of cutDateput "/" after char 5 of cutDaterepeat until "BBS>" is not in theLogput line 1 of theLog & return into titledelete line 1 of theLogget "ﾃ･ﾃｼﾃｧﾄｱ (1:ﾃ･ﾃｼﾃｧﾄｱﾃ､Jﾃｩn 2:ﾃ鵜ﾃ[ﾃﾃ催ｳﾃｳ E:ﾃｨIﾃｳﾏ\)"if it is in line 1 to 2 of theLog thendelete char 1 to offset(it,theLog) of theLogdelete line 1 to 3 of theLogget offset("ﾃﾃ薦",theLog)put char 1 to it - 1 of theLog into KeyListdelete char 1 to it of theLogdelete line 1 of theLogend ifrepeatif "BBS>SET " is in line 1 of theLog then delete line 1 of theLogelse exit repeatend repeatput offset(return & "BBS>",theLog) into yput char 1 to y of theLog after titledelete char 1 to y of theLogif "SCAn" is in line 1 of title or "REAd" is in line 1 of title or "BBS>SET " is in line 1 of title thenput offset("ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦",title) - 1 into yif y < 1 thenput title into menuTxtput empty into extTitleelseput char 1 to y of title into menuTxtdelete char 1 to y of titleput offset(return & "ﾃﾃ",title) into yput char 1 to y of title into extTitledelete char 1 to y of title-- ﾃ嘉ｧﾃ碓ﾃ｢ﾂ｡ﾃｧHdelete line 1 of titledelete last line of titleif title <> empty and the hilite of cd btn id 6 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" then put logcut(title,menuNum,cutDate) after CNMwriteTxtend ifput scanIDDate(menuTxt) into scanIDextractTitle extTitle,header,menuNum,scanID,KeyListelseif "-" is in menuNum thenput " 1." into keyput menuNumber(title,key) into submenuNumif submenuNum <> empty thenput char 1 to offset("-",menuNum) of menuNum & putSpace(word 1 of submenuNum,2) into menuNumend ifend ifend ifend repeatend RoomTitle-- ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺon extractTitle theLog,header,menuNum,scanID,KeyListglobal cNMDialogOFFput false into FCardput line 1 of theLog into listNumdelete line 1 to 2 of theLogif theLog is empty thenput "ﾃ❶ﾃ､Yﾃｬﾃｱﾃ竏妥ﾃ暗ｯ竏づｨﾃｫﾃﾃ陛窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" into theLogelseif value(char 1 to 3 of last line of theLog) <> last word of listNum thendelete last line of theLogend ifend ifput item 2 of scanID into scanDateput item 3 of scanID into scanKeyput item 1 of scanID into scanIDpush cardlock screenset the lockMessages to trueput empty into emptyCardput the number of cards of bg "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" into cnrepeat with r = 1 to cnset the cursor to busygo to cd r of bg "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS"get bg fld id 22if it is empty then put the short id of this cd into emptyCardif it is menuNum thenif KeyList <> empty then put KeyList into bg fld "KeyList"if scanKey is "!ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ﾃｱﾂ｢ﾃｩgﾃｳp!" thenput empty into bg fld "KeyList"put empty into scanKeyend ifif (scanID <> empty and (bg fld id 31 <> "ID:" or bg fld id 30 <> scanID)) or (scanID is empty and bg fld id 31 is "ID:") thennext repeatend ifif (scanKey <> empty and (bg fld id 31 <> "KEY:" or bg fld id 30 <> scanKey)) or (scanKey is empty and bg fld id 31 is "KEY:") thennext repeatend ifputList maskBlackID(theLog,scanID),header,listNum,the short name of this cdput true into FCardend ifend repeat-- ﾃｪVﾃ｣K / ﾃ雨ﾃ[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡if FCard is false and (the hilite of cd btn id 14 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" is false or scanID is empty) thenif scanID <> empty thenget menuNumif "-" is not in it then get putSpace(it,2)put it & ". BBS[" & scanID & "]" into cNMDialogOFFelseput getCdName(menuNum) into cNMDialogOFFif cNMDialogOFF is empty then put menuNum & ". BBS" into cNMDialogOFFend ifif emptyCard <> empty thengo to cd id emptyCardreNameCard cNMDialogOFFelseput cNMDialogOFF && "ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ雨ﾃ[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴ"doMenu "New Card"end ifput false into cNMDialogOFFput menuNum into bg fld id 22putList maskBlackID(theLog,scanID),header,listNum,the short name of this cdput KeyList into bg fld "KeyList"if scanKey is "!ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ﾃｱﾂ｢ﾃｩgﾃｳp!" then put empty into scanKeyif scanID <> empty thenput scanID into bg fld id 30put "ID:" into bg fld id 31end ifif scanKey <> empty thenput scanKey into bg fld id 30put "KEY:" into bg fld id 31end ifif scanDATE <> empty thenput scanDATE into bg fld id 33put "DATE:" into bg fld id 32end ifend ifpop cardunlock screenend extractTitlefunction menuNumber txt,keyWord1put empty into mNumput (keyWord1 is in txt) into cmdelete char 1 to (offset(keyWord1,txt) - 1) of txtrepeatdelete char 1 to offset("ﾃﾃ",txt) of txtget line 1 of txtif char 1 to 3 of it is "GO " thenput empty into mNumexit repeatelse if it is a integer and cm thenif mNum <> empty thenput "-" & value(it) after mNumelseput value(it) into mNumend ifif not(keyWord1 is "ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" and the number of lines of txt > 1) thenput false into cmend ifelseput empty into mNumend ifif "ﾃﾃ" is not in txt then exit repeatend repeatreturn mNumend menuNumberon sendMenuNumber txt,keyWord1get menuNumber(txt,keyWord1)return itend sendMenuNumberfunction maskBlackID theLog,scanIDif theLog <> empty and scanID is empty thenput bg fld id 50 into BlackIDListput the number of lines of BlackIDList into nrepeat with r = 1 to nset the cursor to busyget line r of BlackIDListput MtScanList (theLog,it) into listput the number of lines of list into n2repeat with i = n2 down to 1put item 1 of line i of list into ldelete line l of theLogend repeatend repeatend ifrepeat until length(theLog) < 30000set the cursor to busydelete last line of theLogend repeatif the last line of theLog is "ﾃﾃ" then delete last line of theLogreturn theLogend maskBlackIDfunction logcut title,menuNum,cutDateput "99/99/99" into cutDate -- ﾃﾂｵﾃﾂｻﾃﾃｸﾃﾂｷﾃﾃ4.0ﾃｫﾅ津｢ﾃｻput getCdName(menuNum,true) into roomNameput char 1 to offset(".",roomName) - 1 of roomName into m2if roomName is empty then put "BBS-" & menuNum into roomNameif m2 is empty thenif char 1 to 3 of menuNum <> "BBS" then put "BBS" before menuNumput "- " & menuNum & " MES( 1):" & roomName && cutDate && "-" & return before titleelseput BBSmes(m2) into mput "- BBS MES(" & m & "):" & roomName && cutDate && "-" & return before titleend ifreturn titleend logcutfunction BBSmes menuNumif the hilite of cd btn id 6 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" thenput roomNum(menuNum) into menuNumput bg fld "BBSnameList1" into nameListput MtScanList(nameList,menuNum & ".") into irepeat with r = 1 to the number of lines of iput item 1 of line r of i into Lget line L of nameListif char 1 to offset(".",it) - 1 of it is menuNum then return Lend repeatreturn 0elseput BBSNum(menuNum) into menuNumif item 2 of menuNum is empty then put 0 into item 2 of menuNumif item 1 of menuNum is 6 thenreturn (char 1 of item 1 of menuNum) & addzero(char 1 to 2 of item 2 of menuNum,2)else return (char 1 to 2 of item 1 of menuNum) & (char 1 of item 2 of menuNum)end ifend BBSmesfunction getCdName n,optput roomNum(n) into nif opt is true then put bg fld "BBSnameList2" into nameListelse put bg fld "BBSnameList1" into nameListif "BBS" is in n thenput bg fld "BBSMenu" into listput MtScanList(list,"ﾃ⑿" & n & "ﾃ⒀") into lif l <> empty thenget item (item 2 of l) of line (item 1 of l) of listput char 1 to offset(".",it) - 1 of it into nelsereturn emptyend ifend ifput MtScanList(nameList,n & ".") into irepeat with r = 1 to the number of lines of iget line (item 1 of line r of i) of nameListif char 1 to offset(".",it) - 1 of it is n then return itend repeatreturn emptyend getCdNamefunction BBSNum nput roomNum(n) into nput bg fld "BBSnameList1" into nameListput MtScanList(nameList,n,,true,".") into s-- if s is empty then return emptyif "-" is in n thenput the itemDelimiter into prevDset the itemDelimiter to "-"put value(item 1 of n) & "," & value(item 2 of n) into nset the itemDelimiter to prevDelse if n is not a integer thenput word 1 of n & "," into nelseput value(n) & "," into nend ifreturn nend BBSNumfunction roomNum nif "-" is in n thenput the itemDelimiter into prevDset the itemDelimiter to "-"put putSpace(value(item 1 of n),2) & "-" & putSpace(value(item 2 of n),2) into nset the itemDelimiter to prevDelseif n is a integer then put putSpace(value(n),2) into nend ifreturn nend roomNumfunction scanIDDate menuTxt -- BBSput empty into scanIDput empty into scanDateput empty into scanKeyput item 1 of MtScanList(menuTxt,"SCAn ID:",,) into lif l <> empty thenget line l of menuTxtdelete char 1 to offset(":",it) of itput it into scanIDend ifput item 1 of MtScanList(menuTxt,"ﾃ･ﾃｼﾃｧﾄｱID (ﾃ｢ﾂｸﾃｧsﾃ竕暗ｫSﾃ･ﾃｨﾃｫﾅ津ｨ竄ｬ)",,) into lif l <> empty thenget line (l + 1) of menuTxtdelete char 1 of itput it into scanIDend ifput item 1 of MtScanList(menuTxt,"SCAn DATE:",,) into lif l <> empty thenget line l of menuTxtdelete char 1 to offset(":",it) of itput it into scanDateend ifput item 1 of MtScanList(menuTxt,"SCAn KEY:",,) into lif l <> empty thenget line l of menuTxtdelete char 1 to offset(":",it) of itput it into scanKeyend ifput item 1 of MtScanList(menuTxt,"ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ (ﾃ｢ﾂｸﾃｧsﾃ竕暗ｫSﾃ･ﾃｨﾃｫﾅ津ｨ竄ｬ)",,) into lif l <> empty thenget line (l + 1) of menuTxtdelete char 1 of itput it into scanKeyend ifif "ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ (ﾃ｢ﾂｸﾃｧsﾃ竕暗ｫSﾃ･ﾃｨﾃｫﾅ津ｨ竄ｬ)" is not in menuTxt and "SCAn KEY:" is not in menuTxt thenput "!ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ[ﾃｱﾂ｢ﾃｩgﾃｳp!" into scanKeyend ifreturn scanID & "," & scanDate & "," & scanKeyend scanIDDateon sendScanIDDate menuTxtreturn scanIDDate(menuTxt)end sendScanIDDate----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNMmacroReportset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃﾃｴﾃﾃｴﾃﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃﾃｴﾃﾃｴﾃﾃｴ"put bg fld id 22 into roomput BBSNum(room) into BBSnif BBSn is empty thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃﾃεｮ窶佚ｧﾃ愿邃｢ﾃ､窶佚ﾂｷﾃﾂ｡ﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥③" & return & cdName & return after cNMmacroReportexit makeMacroend ifput item 1 of BBSn into n1put item 2 of BBSn into n2--put bg fld "ScanID" into ScanIDput bg fld "ScanDate" into ScanDateput bg fld "ScanID" into ScanKEYif ScanDate <> empty and bg fld id 32 is "DATE:" and ScanID <> empty and bg fld id 31 is "ID:" thenput "DATE&ID" into modeput empty into ScanKEYelse if ScanDate <> empty and bg fld id 32 is "DATE:" and ScanID <> empty and bg fld id 31 is "KEY:" thenput "DATE&KEY" into modeput empty into ScanIDelse if ScanDate <> empty and bg fld id 32 is "DATE:" thenput "DATE" into modeput empty into ScanIDput empty into ScanKEYelse if ScanID <> empty and bg fld id 31 is "ID:" thenput "ID" into modeput empty into ScanDateput empty into ScanKEYelse if ScanID <> empty and bg fld id 31 is "KEY:" thenput "KEY" into modeput empty into ScanIDput empty into ScanDateelseput "NONE" into modeput empty into ScanIDput empty into ScanDateput empty into ScanKEYend ifif "DATE" is in mode then put nextSEAdate(0) into bg fld "ScanDate"put bg fld "readList" into listif the hilite of bg btn "ALL" then put "ALL" into listput the hilite of bg btn id 23 into numLockput the hilite of cd btn id 8 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" into breakput line 1 of bg fld "titleList" into fTitleif fTitle is "ﾃ❶ﾃ､Yﾃｬﾃｱﾃ竏妥ﾃ暗ｯ竏づｨﾃｫﾃﾃ陛窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" then put empty into fTitleBBSMacro room,n1,n2,ScanID,ScanDate,ScanKEY,mode,list,numLock,break,fTitleend makeMacroon BBSMacro room,n1,n2,ScanID,ScanDate,ScanKEY,mode,list,numLock,break,fTitleglobal cNMvariableListput "cNMBBS_" & addZero(n1,2) & "_" & n2 into vNameif n1 is not a integer thenput getCdName(room) into rNameif rName <> empty thenget BBSNum(char 1 to offset(".",rName) - 1 of rName)put "cNMBBS_" & addZero(item 1 of it,2) & "_" & item 2 of it into vNameend ifend ifput vName & "a" into vNameAput vName & "b" into vNameBdo "global" && vNameBif MtScanList (cNMvariableList,vNameA,,true) is empty thenputVariableName vNameAdo "global" && vNameAput macro1(n1,n2) into mput "r:^mBBS>" & return after mdo "put m into" && vNameAend ifif MtScanList (cNMvariableList,vNameB,,true) is empty thenputVariableName vNameBdo "put empty into" && vNameBend ifdo "put (" & quote & "s:SCAn^m" & quote && "is not in" && vNameB && "and" && quote & "KEY" & quote && "is in mode or bg fld id 55 is empty) into getKey"put readMacro(room,ScanID,ScanDate,ScanKEY,getKey,mode,list,numLock,break,fTitle) into macrodo "put macro after" && vNameB-- if MtScanList (cNMvariableList,cNMBBS_END,,true) is empty then-- putVariableName "cNMBBS_END"-- global cNMBBS_END-- put macro6() into cNMBBS_END-- end ifend BBSMacrofunction readMacro room,ScanID,ScanDate,ScanKEY,getKey,mode,list,numLock,break,fTitleput nextLabel() into label1if ScanID is empty then put "None" into p1 else put ScanID into p1if ScanDate is empty then put "None" into p2 else put ScanDate into p2if ScanKEY is empty then put "None" into p3 else put ScanKEY into p3put "m: BBS:" & room && "ID:" & p1 && "DATE:" & p2 && "KEY:" & p3 & return into mif mode is "NONE" thenput "s:REAd^m" & return &ﾂｬ"r:ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦ﾆ" & label1 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return after melse if mode is "DATE" thenput macro2(ScanDate,mode,label1) after melse if mode is "ID" thenput macro2(ScanID,mode,label1) after m-- put macro3("ID",ScanID,,,false,label1) after melse if "KEY" is in mode thenput macro3("KEY",ScanKEY,,ScanDate,getKey,label1) after melseput macro3("DATE",ScanDate,ScanID,ScanKEY,false,label1) after mend ifput (break and fTitle <> empty and (mode is "DATE" or mode is "NONE")) into breakif list <> empty thenput "*: ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return after mput shortNumber(list,true,true) into listput nextLabel() into label4if numLock or fTitle is empty or list is "ALL" or "ID" is in mode thenif break then-- ﾃｫOﾃ｢ﾃ津ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃﾃ津ﾃｦﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ邃｢ﾃ･ﾂｪﾃﾃ古ﾃ催ﾎｩﾃﾃﾃ疫ﾃ嘉･ﾃ[ﾃ丑put macro4(fTitle) after melseput "r:^mﾃﾃ" & return after mend ifput "s:" & list & "^m" & return after mput macro5(label4) after melseput firstTitle(fTitle,true,false) into fTitle1-- ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃ邃｢ﾃｭﾂｫﾃ｢ﾂ｡ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃﾃ暗ｨﾃ催ｧﾃ｡ﾃ②ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ厩ﾃ鵜ﾃ叡ﾃ益ﾃ③put "r:" & fTitle1 & "ﾆ" & label4 & ":^mﾃﾃ" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:" & list & "^m" & return after mput macro5(label4) after mend ifelseif break thenput macro4(fTitle) after m -- ﾃ疫ﾃ嘉･ﾃ[ﾃ丑elseput "r:^mﾃﾃ" & return after mend ifend ifput "s:E^m" & return &ﾂｬlabel1 & ":" & return after mif break thenput "r:BBS>" & return after melseput "r:^mBBS>" & return after mend ifput checkLabel(m) into labelListput "*: TotalLabel :" && the number of items of labelList & return after mreturn mend readMacrofunction macro1 n1,n2if n1 is not a integer thenget n1put "s:DO" && n1 & "^m" into melseif n2 is empty then get n1 else get n1 & "/" & n2put "s:DO BBS/" & it & "^m" into mend ifreturn "m: ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" && it & return & m & returnend macro1function macro2 ky1,mode,label1put nextLabel() into label2return "s:SCAn " & mode & ":" & ky1 & "^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬlabel2 & ":" & return &ﾂｬ"s:^m" & return &ﾂｬ"r:ﾃ⑦ﾆ" & label1 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬ"t:" & label2 & ":1:ﾃｮ窶佚ｧﾃﾃｬoﾃｲ^ﾃｩ窶廬D" & returnend macro2function macro3 mode,ky1,ky2,ky3,getKey,label1put nextLabel() into label2put nextLabel() into label3if getKey thenput nextLabel() into label4put nextLabel() into label5put "s:SCAn^m" & return &ﾂｬ"r:ﾃｧﾄｱID (ﾃ｢ﾂｸﾃｧsﾃ竕暗ｫSﾃ･ﾃｨﾆ" & label4 & ":ﾃ･ﾃｼﾃｧﾄｱﾃ､Jﾃｩn" & return &ﾂｬ"j:" & label5 & return &ﾂｬlabel4 & ":" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:2^m" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"s:E^m" & return &ﾂｬ"r:^mBBS>" & return into melse put empty into mput "s:SCAn " & mode & ":" & ky1 & "^m" & return after mif getKey then put label5 & ":" & return after mput "r:ﾃ⑦ﾆ" & label1 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬ"s:" & ky2 & "^m" & return &ﾂｬ"r:ﾃ⑦ﾆ" & label1 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬ"t:" & label2 & ":1:^mﾃｮ窶佚ｧﾃ" & return &ﾂｬ"j:" & label3 & return &ﾂｬlabel2 & ":" & return &ﾂｬ"s:" & ky3 & "^m" & return &ﾂｬ"r:ﾃ⑦ﾆ" & label1 & ":ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津❶" & return &ﾂｬlabel3 & ":" & return after mreturn mend macro3function macro4 fTitleput nextLabel() into label2put firstTitle(fTitle,true,true) into fTitlereturn "r:" & fTitle & "ﾆ" & label2 & ":^mﾃﾃ" & return &ﾂｬ"b:" & return & "r:^mﾃﾃ" & return & label2 & ":" & returnend macro4function macro5 label4if the hilite of cd btn id 10 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" thenreturn macro5b(label4) -- NEXT>ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ窶ﾃﾃelsereturn macro5a(label4) -- NEXT>ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃﾂｻﾃﾂｵend ifend macro5function macro5a label4put nextLabel() into label5put label5 & ":" & return into mif the hilite of cd btn id 9 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" thenput "r:ﾃﾃ柁>:next>" & return after melseput "r:^mﾃﾃ柁>:^mnext>" & return after mend ifput "t:" & label4 & ":1:." & return &ﾂｬ"j:" & label5 & return &ﾂｬlabel4 & ":" & return after mreturn mend macro5afunction macro5b label4put nextLabel() into label5put nextLabel() into label6put nextLabel() into label7put label5 & ":" & return into mif the hilite of cd btn id 9 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" thenput "r:ﾃﾃ柁" & label6 & ":next>" & return after melseput "r:^mﾃﾃ柁" & label6 & ":^mnext>" & return after mend ifput "t:" & label4 & ":1:." & return &ﾂｬ"j:" & label5 & return &ﾂｬlabel6 & ":" & return &ﾂｬ"t:" & label7 & ":1:." & return &ﾂｬ"j:" & label5 & return &ﾂｬlabel7 & ":" & return &ﾂｬ"s:^m" & return &ﾂｬ"j:" & label5 & return &ﾂｬlabel4 & ":" & return after mreturn mend macro5bfunction macro6put nextLabel() into labelreturn "s:E^m" & return &ﾂｬ"r:^mﾃﾃ柁" & label & ":^mﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS" & return &ﾂｬ"s:E^m" & return &ﾂｬlabel & ":" & return &ﾂｬ"r:^mﾃﾃ" & return &ﾂｬ"*: TotalLabel : 1" & returnend macro6-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckput empty into rtif bg fld id 22 is empty thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃﾃεｮ窶佚ｧﾃ愿邃｢ﾃｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return after rtend ifput bg fld id 31 into pm1if pm1 is "ID:" and checkID(bg fld id 30) is false thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ID: ﾃﾃ陛ｮﾂｺﾃ､pﾃ㈿ﾃｯ竏づｩﾃｶﾃ竕暗竏妥③" & return after rtend ifput bg fld id 32 into pm2if pm2 <> "None" and checkDATE(bg fld id 33) is false thenput "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦ﾃｬﾋ凖ｯtﾃﾃ" &&quote& "YYMMDD" &quote&& "ﾃ竕暗竏妥③" & return after rtend ifreturn rtend dataCheck-- ﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄ﾃ荏ﾃ宇ﾃ叡ﾃ丑on checkKeyWord modeput bg fld id 31 into pm1put bg fld id 32 into pm2if pm1 <> "None" and bg fld id 30 is empty thenput "None" into bg fld id 31set the visible of bg fld id 30 to falseend ifif pm2 <> "None" and bg fld id 33 is empty thenput "None" into bg fld id 32set the visible of bg fld id 33 to falseend ifif pm1 <> "None" or pm2 <> "None" thenput bg fld id 30 into txtput omitText(txt,20) into bg fld id 30get dataCheck()if it contains "ﾃ烏ﾃ嘉｢ﾃ[ﾃ⑦" and mode <> "false" thenbeepanswer itend ifend ifif pm1 is "ID:" then put upperLower(bg fld id 30) into bg fld id 30put bg fld id 33 into bg fld id 33end checkKeyWord-- ﾃ･fﾃｩﾂｶﾃｮﾂｬ(BBS)ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳function BBSFileListput postPath() into FldrPathif FldrPath <> empty thenset the cursor to watchPUT "T:TEXT" & return & "N:BBS" into TargetParamput fileListInFldr(FldrPath,TargetParam) into listrepeat with r = the number of lines of list down to 1get line r of listif char 1 to 3 of it <> "BBS" and char 1 to 4 of it <> "_BBS" thendelete line r of listelse if "BBS-0" is in it thendelete char 1 to offset("-",it) of itput offset("-",it) into x1put offset("_",it) into x2if x1 > 1 and (x1 < x2 or x2 is 0) then get char 1 to (x1 - 1) of itif x2 > 1 and (x2 < x1 or x1 is 0) then get char 1 to (x2 - 1) of itif it is "0" then delete line r of listend ifend repeatsort lines of listreturn listelsereturn emptyend ifend BBSFileListfunction setDate cText,scanDateput nextSEAdate() into todayput char 1 to 2 of today into YYget char 17 to 21 of cTextdelete char 3 of itif it is empty then get char 3 to 6 of todayget addZero(value(it),4)if it > char 3 to 6 of today then put (YY - 1) before itelse put YY before itif it < scanDate or scanDate is empty then put it into scanDatereturn scanDateend setdateon GComBtnreturn "bg btn id 18"end GComBtnon scrFldsetScrollFld "bg fld id 3"end scrFld</script> </background>